home *** CD-ROM | disk | FTP | other *** search
/ Software Explosion 2 / Software Explosion 2 - Virtual Computer Pets (1997).iso / lcp / lcp.d64 / create new lcp (.txt) < prev    next >
Commodore BASIC  |  1996-02-07  |  896b  |  13 lines
  1. 0 A=RND(-TI)
  2. 5 PRINT"[147]GENERATING A NEW LCP .... PLEASE WAIT"
  3. 10 OPEN15,8,15,"I0"
  4. 20 OPEN2,8,2,"#"
  5. 30 PRINT#15,"B-P:"2;0;0
  6. 40 FORI=0TO255:PRINT#2,CHR$(PEEK(2560 +I));:NEXT
  7. 50 PRINT#15,"U2:"2;0;1;4
  8. 51 PRINT#15,"B-P:"2;0;0:PRINT#15,"U1:"2;0;18;17:PRINT#15,"B-P:"2;0;0
  9. 52 FORI=1TO8:PRINT#2,CHR$(48+INT(RND(1)*15));:NEXT
  10. 53 PRINT#15,"U2:"2;0;18;17
  11. 60 CLOSE2:CLOSE15
  12. 70 PRINT"NEW LCP IS NOW GENERATED"
  13.